home *** CD-ROM | disk | FTP | other *** search
/ Revista CD Expert 37 / CD Expert nº 37.iso / LastCall / lastcall.exe / stuff / lastcall.dxr / 00210.ls < prev    next >
Encoding:
Text File  |  2000-03-27  |  532 b   |  25 lines
  1. on exitFrame
  2.   global gPlayerTips, gServedUnderage
  3.   resetCursor()
  4.   menuMode(1)
  5.   if (gPlayerTips = 0) or gServedUnderage then
  6.     exit
  7.   end if
  8.   if gPlayerTips > 1000 then
  9.     vo = randomFromList(["X06", "X07", "X05"])
  10.   else
  11.     if gPlayerTips > 750 then
  12.       vo = randomFromList(["X04", "X08", "X03"])
  13.     else
  14.       if gPlayerTips > 300 then
  15.         vo = randomFromList(["X05", "X03", "z16"])
  16.       else
  17.         if gPlayerTips > 0 then
  18.           vo = "z16"
  19.         end if
  20.       end if
  21.     end if
  22.   end if
  23.   managerVO(vo)
  24. end
  25.